﻿Public Class Bid
    Private _bidType As BidType
    Private _bidValue As RaiseBidValue

    Public Sub New(ByVal bidType As BidType, ByVal bidValue As RaiseBidValue)
        Me.BidType = bidType
        Me.BidValue = bidValue
    End Sub

    Public Property BidType As BidType
        Get
            Return _bidType
        End Get
        Set(ByVal value As BidType)
            _bidType = value
        End Set
    End Property

    Public Property BidValue As RaiseBidValue
        Get
            Return _bidValue
        End Get
        Set(ByVal value As RaiseBidValue)
            _bidValue = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        If (BidType = LiarsDice.BidType.Raise) Then
            Return String.Format("Raise > {0} {1}s", BidValue.DieCount, BidValue.DieValue)
        Else
            Return String.Format("Challenge!")
        End If
    End Function
End Class
